The table in sheet Data_applications has 1516rows and 9columns.
Code
library(htmltools)library(dplyr)library(plotly)library(crosstalk) # this package makes it possible to filter library(DT)# Create object that will be shared by filter panels, datatable and plotsshared_tbl <- SharedData$new(tbl_apps, group ="shared_obj")# filter panels. Other formats are sliders and checkboxes https://rstudio.github.io/crosstalk/using.html#--------------------------------------------------------------------------------bscols(widths =c(2,3,3,3,3),device =c("xs", "sm", "md", "lg"),filter_checkbox( id ="Division", label ="Division",sharedData = shared_tbl, group =~Division, inline=FALSE),filter_select(id ="repository", label ="Filter by Repository",sharedData = shared_tbl, ~`Data repository`),filter_select(id ="categories", label ="Filter by Sharing Category",sharedData = shared_tbl, ~`Categories`),filter_select(id ="dmpcheck", label ="Filter by DMP check",sharedData = shared_tbl, ~`DMP check`),filter_select(id ="dmpsubmit", label ="Filter by DMP submission",sharedData = shared_tbl, ~`DMP submitted`))
Code
# Plot#--------------------------------------------------------------------------------bscols(widths =c(6,6), plot_ly(shared_tbl, y =~`Budgeted ORD costs`, x =~Division, color=~Division) %>%add_markers(),plot_ly(shared_tbl, x =~`DMP check`, color=~Division,alpha =0.6) %>%add_histogram(), tags$hr(), tags$hr())